Software of the Month Club 1996 June/Software of the Month Club 1996 June.iso/pc/dos/dtp/aurora/qekbd.aml

Text File | 1995-02-24 | 21.9 KB | 607 lines

// ───────────────────────────────────────────────────────────────────
// The Aurora Editor v2.0
// Copyright 1993-1995 nuText Systems. All Rights Reserved Worldwide.
//
// QEdit/TSE Keyboard definitions (included by MAIN.AML)
//
// If you have made any changes, save this file and select 'Recompile
// the Editor' from the Set menu. Exit and re-enter the editor for
// your changes to take effect.
// ───────────────────────────────────────────────────────────────────

// ───────────────────────────────────────────────────────────────────
//  Edit and File Manager windows
// ───────────────────────────────────────────────────────────────────

  object  edit_fmgr

  // Controls
  function  '≡'                                // close window
    close
  end

  // Menu activation
  key  <esc>           gotobar                 // to last menu bar item (qe)
  key  <f10>           gotobar                 // to last menu bar item (qe)
  key  <f1>            gotomenu "help"         // goto help pull-down menu (qe)
  key  <alt t>         gotobar2                // to last toolbar/drive item
  key  <alt f>         gotomenu "file"         // to file menu (qe)

  // Scroll
  key  <pgdn>          pagedown                // scroll down (qe)
  key  <pgup>          pageup                  // scroll up (qe)
  key  <ctrl home>     row (getviewtop)        // to page top (qe)
  key  <ctrl end>      row (getviewbot)        // to page bottom (qe)
  key  <ctrl pgup>     row 1                   // to file top (qe)
  key  <ctrl pgdn>     row (getlines)          // to file bottom (qe)
  key  <shift f5>      adjustrow               // center cursor (qe)
  key  <f5>            adjustrow 1             // scroll to page top (qe)
  key  <ctrl f10>      adjustrow (getviewrows) // scroll to page bottom

  // scroll down one line (qe)
  key  <ctrl z>
    rollrow 1
    if getrow > getviewtop then
      up
    end
  end

  // scroll up one line (qe)
  key  <ctrl w>
    rollrow -1
    if getrow < getviewbot then
      down
    end
  end

  key  <ctrl up>       rollrow -1              // scroll up one line (qe)
  key  <ctrl down>     rollrow  1              // scroll down one line (qe)
  key  <alt f5>        rollcol -1              // scroll left one col (qe)
  key  <alt f6>        rollcol  1              // scroll right one col (qe)
  key  <ctrl q><p>     lastpos                 // to last cursor position (qe)

  // File
  key  <alt e>         askopen                 // open prompt (qe)
  key  <alt 0>         filelist                // file list (qe)
  key  <ctrl k><q>     close                   // close window (qe)
  key  <alt x>         closeall                // close all windows (qe)
  key  <shift f1>      quickref 'qw'           // quick function reference
  key  <shift f2>      quickref 'fw'           // function reference

  // Window
  key  <ctrl o><z>     maximize                // maximize window (qe)
  key  <ctrl o><n>     nextwindow              // next window (qe)
  key  <ctrl o><p>     prevwindow              // prev window (qe)
  key  <ctrl k><q>     close                   // close file (qe)

  // close window (qe)
  key  <ctrl o><c>
    if getwincount > 1 then
      deletewin
    end
    tile 'v'
  end

  // one window (qe)
  key <ctrl o><o>
    while getwincount > 1 do
      deletewin
    end
    cascade
  end

  // Search
  key  <ctrl s>        askscan                 // file scan prompt

  key  <ctrl [>        gotomark 't'            // find top of block (qe)
  key  <ctrl q><b>     call <ctrl [>
  key  <ctrl ]>        gotomark 'b'            // find bot of block (qe)
  key  <ctrl q><k>     call <ctrl ]>

  // Set
  key  <ctrl f1>       togglemode              // toggle video mode (qe)

  // Macro
  key  <alt f9>        askrun                  // DOS command prompt (qe)
  key  <alt f8>        askruncap               // DOS capture prompt
  key  <f9>            shell                   // exit to DOS (qe)

  // undefined or unnamed keys
  key <otherkey> (keycode)
    say (getkeyname (keycode)) + " not defined"
  end


// ───────────────────────────────────────────────────────────────────
//  Prompts and Edit windows
// ───────────────────────────────────────────────────────────────────

  object  prompt

  // Controls
  function  '≡'                                // close window
    close
  end

  function  '*'                                // simulate <enter>
    call <enter>                               //  (2-line box only)
  end

  // Cursor
  key  <left>          left                    // move cursor left (qe)
                       smark                   // cua marking

  key  <right>         right                   // move cursor right (qe)
                       smark                   // cua marking

  key  <home>          col 1                   // to column one (qe)
                       smark                   // cua marking

  key  <end>           col  getlinelen + 1     // to end of line (qe)
                       smark                   // cua marking

  // Scroll
  key  <f7>            rollcol -(getviewcols - 1)   // page left
  key  <f8>            rollcol   getviewcols - 1    // page right

  // Editing
  key  <ins>           setting 'I' TOGGLE      // toggle insert mode (qe)
  key  <del>           delchar                 // delete character (qe)
  key  <backspace>     backsp                  // delete left character (qe)
  key  <f6>            delchar (getlinelen)    // erase to end of line (qe)
  key  <alt del>       call <f6>
  key  <ctrl p>        literal                 // enter literal character (qe)
  key  <ctrl a>        asciilist               // display ascii chart (qe)

  // Block
  key  <alt a>         markchar                // mark stream (qe)
  key  <alt k>         markcolumn              // mark column (qe)
  key  <ctrl k><t>     markword                // mark word (qe)
  key  <alt 2>         markeol                 // mark to end of line
  key  <alt u>         destroymark             // unmark (qe)

  // copy block to prompt (qe)
  key  <alt c>
                       instext (getmarktext)
                       col  getlinelen + 1

  // paste from clipboard to prompt (qe)
  key  <grey*>
                       usemark _ClipName
                       instext (getmarktext)
                       usemark
                       col  getlinelen + 1

  // copy from prompt to clipboard (qe)
  key  <grey+>         copy

  // Prompt history
  key  <up>            prevhist                // retrieve prev prompt
  key  <down>          nexthist                // retrieve next prompt
  key  <pgup>          askhistory              // history popup menu
  key  <pgdn>          askhistory              // history popup menu

  // Exit
  key  <esc>           close                   // quit prompt (qe)
  key  <ctrl k><q>     call <esc>

  // non-function keys
  key  <char> (character)                      // typeable keys
    write character
  end

  // filename completion
  key  <ctrl tab>      askcomplete             // filename completion
  key  <tab>           askcomplete             // filename completion (qe)
  end


// ───────────────────────────────────────────────────────────────────
//  Edit windows
// ───────────────────────────────────────────────────────────────────

  object  edit

  // Controls
  function  '≡'
    close                                      // close window
  end

  // Menu
  key  <esc>           gotobar                 // to last menu bar item (qe)

  // Cursor
  key  <up>            up                      // move cursor up (qe)
                       smark                   // cua marking

  key  <down>          down                    // move cursor down (qe)
                       smark                   // cua marking

  key  <enter>         enter                   // enter key (qe)
  key  <greyenter>     enter                   // keypad enter key (qe)
  key  <del>           delchar2                // delete character (qe)
  key  <backspace>     backsp                  // delete left char (qe)
  key  <ctrl t>        delword _CSet           // delete right word (qe)
  key  <ctrl del>      call <ctrl t>

  key  <tab>           tabright                // tab right (qe)
  key  <shift tab>     tableft                 // tab left (qe)

  key  <ctrl left>     prevword                // find prev word (qe)
                       smark

  key  <ctrl right>    nextword                // find next word (qe)
                       smark

  // Scroll
  key  <pgdn>          pagedown                // page down (qe)
                       display
                       smark

  key  <pgup>          pageup                  // page up (qe)
                       display
                       smark

  key  <ctrl home>     row (getviewtop)        // to page top (qe)
                       smark

  key  <ctrl end>      row (getviewbot)        // to page bottom (qe)
                       smark

  key  <ctrl pgup>     row 1                   // to file top (qe)
                       smark

  key  <ctrl pgdn>     row (getlines)          // to file bottom (qe)
                       smark

  // File
  key  <alt r>         askinsert               // open and insert prompt (qe)
  key  <alt o>         askname                 // rename prompt (qe)
  key  <ctrl k><s>     save                    // save file (qe)
  key  <alt n>         nextfile                // next file (qe)
  key  <alt p>         prevfile                // prev file (qe)
  key  <ctrl k><q>     close                   // close file/window (qe)
  key  <ctrl k><x>     close 's'               // save & close file/window (qe)
  key  <ctrl k><z>     deletefile (getbufname) // killfile (qe)

  // Window
  key  <ctrl o><d>                             // delete window (qe)
    if getwincount > 1 then
      deletewin
    end
  end

  key  <ctrl o><h>     splitwin 'h'            // split window horz (qe)
  key  <ctrl o><v>     splitwin 'v'            // split window vert (qe)
  key  <ctrl f8>       toolbar                 // display tool bar

  // Block
  key  <alt l>         markline                // mark line (qe)
  key  <alt 3>         markpara "tb"           // mark paragraph
  key  <alt c>         copyblock2              // copy block (qe)
  key  <alt z>         copyblockover           // overlay block (qe)
  key  <alt m>         moveblock2              // move block (qe)
  key  <alt g>         deleteblock2            // delete block (qe)
  key  <shift f7>      shiftblock -1           // unindent block (qe)
  key  <shift f8>      shiftblock  1           // indent block (qe) **
  key  <ctrl k><l>     fillblock2              // fill block with string (qe)
  key  <alt b>         formatblock2 "kr"       // reformat block (qe)
  key  <alt w>         saveblock2              // save block (qe)
  key  <shift f3>      sortblock2              // sort block (qe)
  key  <shift f9>      quote                   // quote a block
  key  <ctrl k><c>     justblock2 'c'          // center a block

  // Search
  key  <ctrl f>        askfind                 // find prompt (qe)
  key  <ctrl q><f>     call <ctrl f>
  key  <ctrl r>        askrepl                 // replace prompt (qe)
  key  <ctrl i>        isearch                 // incremental search (qe)
  key  <alt v>         askfindo                // find occurrences (qe)
  key  <ctrl l>        findlast                // do last find/replace (qe)

  key  <ctrl 2>        placebook               // place bookmark (qe)
  key  <ctrl 6>        askbook                 // goto bookmark (qe)

  // place bookmarks (qe)
  key  <ctrl k><0>     placebook 'q'
  key  <ctrl k><1>     placebook 'r'
  key  <ctrl k><2>     placebook 's'
  key  <ctrl k><3>     placebook 't'
  key  <ctrl k><4>     placebook 'u'
  key  <ctrl k><5>     placebook 'v'
  key  <ctrl k><6>     placebook 'w'
  key  <ctrl k><7>     placebook 'x'
  key  <ctrl k><8>     placebook 'y'
  key  <ctrl k><9>     placebook 'z'

  // goto bookmarks (qe)
  key  <ctrl q><0>     gotobook2 'q'
  key  <ctrl q><1>     gotobook2 'r'
  key  <ctrl q><2>     gotobook2 's'
  key  <ctrl q><3>     gotobook2 't'
  key  <ctrl q><4>     gotobook2 'u'
  key  <ctrl q><5>     gotobook2 'v'
  key  <ctrl q><6>     gotobook2 'w'
  key  <ctrl q><7>     gotobook2 'x'
  key  <ctrl q><8>     gotobook2 'y'
  key  <ctrl q><9>     gotobook2 'z'

  key  <ctrl c>        askcol                  // go to col prompt (qe)
  key  <ctrl j>        askrow                  // go to line prompt (qe)

  key  <alt 7>         search2 "f/f"           // go to next fold
  key  <alt f3>        gotomatch2              // find matching char (qe)
  key  <alt f7>        gotoerror               // go to compiler error

  // find word at cursor
  function  fcursor (option)
    word = getword _CSet
    if word then
      search2 word + '/' + option
    end
  end

  key  <alt =>         fcursor ''              // find word at cursor (qe)
  key  <ctrl \>        fcursor 'g'             // find word at cursor (qe)

  // display function list (qe)
  function  <ctrl g>
    string = case  getext (getbufname)
               when ".C", ".CPP"
                 "^[a-zA-Z_].*\(.*[~;]$"
               when ".AML"
                 "^ *{function}|{key}.*$"
               when ".PAS"
                 "{procedure}|{function} +[a-zA-Z_]"
               when ".PRG", ".SPR", ".MPR", ".QPR", ".FMT", ".FRG", ".LBG", ".CH"
                 "^{procedure}|{function} +[a-zA-Z_]"
               otherwise
                 ""
             end
    if string then
      findo string + "/ix"
    else
      say "Extension not supported"
    end
  end

  // Fold
  key  <alt 8>         foldline                // fold next line
  key  <alt 9>         foldline 'u'            // unfold next line
  key  <alt \>                                 // open or close fold
    if fold? then
       openfold
    else
       closefold
    end
  end
  key  <alt [>         foldall 'os'            // open all folds
  key  <alt ]>         foldall 'cs'            // close all folds

  // Edit
  key  <ctrl u>        undo                    // undo last change
  key  <ctrl k><r>     redo                    // redo last change

  key  <f2>            insline                 // insert line (qe)
                       down

  key  <alt f2>        insabove                // insert line above (qe)
                       up
  key  <ctrl n>        call <alt f2>           // insert line above (qe)

  key  <alt d>         delline                 // delete line (qe)
  key  <ctrl d>        call <alt d>
  key  <ctrl y>        call <alt d>

  key  <alt s>         splitline2              // split line (qe)
  key  <alt j>         joinline                // join line (qe)
  key  <f4>            insline (gettext)       // duplicate line (qe)
                       down
  key  <ctrl f2>       swapline                // swap line (qe)
  key  <ctrl o><t>     centerline              // center line (qe)
  key  <alt f1>        commentline             // comment/uncomment line

  // display menu to change case (qe)
  function  casemenu (upper)
    select = popup "chgcase" (if? upper "Upper" "Lower") + " Case"
    if select then
      undobegin
      if select < 3 then
        usemark 'T'
      end
      case select
        when 1  markword _CSet
        when 2  markline
      end
      caseblock (if? upper 'u' 'l')
      if select < 3 then
        destroymark
        usemark
      end
      undoend
    end
  end

  key  <shift f4>  casemenu TRUE               // uppercase menu (qe)
  key  <alt f4>    casemenu FALSE              // lowercase menu (qe)

  // copy character above (qe)
  key  <ctrl ->
    if getrow > 1 then
      writetext (getchar (getcol) getrow - 1)
    end
  end

  // copy character above to end of line (qe)
  key  <alt ->
    if getrow > 1 then
      writetext (gettext (getcol) '' getrow - 1)
    end
  end

  // Clipboard
  key  <grey->         cut                     // cut (qe)
  key  <ctrl grey->    cut 'a'                 // cut append (qe)
  key  <grey+>         copy                    // copy (qe)
  key  <ctrl grey+>    copy 'a'                // copy append (qe)
  key  <grey*>         paste                   // paste (qe)
  key  <ctrl grey*>    paste 'o'               // paste over (qe)
  key  <ctrl grey/>    clear                   // clear clipboard
  key  <ctrl b>        popup "editClip"        // clipboard menu (qe)

  // Set
  key  <ctrl o><w>     setting 'L' TOGGLE      // live word wrap toggle (qe)
  key  <ctrl q><i>     setting 'A' TOGGLE      // autoindent toggle (qe)
  key  <ctrl q><t>     setting 'S' TOGGLE      // smart tabs toggle (qe)
  key  <ctrl v>        setting 'D' TOGGLE      // line draw toggle (qe)

  //Macro
  key  <ctrl x>        askrmacro               // run macro prompt (qe)
  key  <ctrl f9>       compilemacro2 (getbufname)  // compile current file (qe)
  key  <shift f11>     runmacro2 (getbufname)      // run current file
  key  <shift f12>     pickmacro                   // macro picklist

  // non-function (typeable) keys
  key  <char> (character)                      // typeable keys
    write character
  end

  // Other
  key  <ctrl q><ctrl q>  askrepkey             // repeat entered keys (qe)

  // invoke a spell checker from within an edit window
  // (replace 'jspell' with your favorite spell checker)
  key  <f11>
    save                                       // save the current file
    run  "jspell " + getbufname  "ck"          // call spellchecker
    reopen                                     // reopen current file
  end

// ───────────────────────────────────────────────────────────────────
//  File Manager windows
// ───────────────────────────────────────────────────────────────────

  object  fmgr

  // Menu activation
  key  <tab>           gotobar2                // to drive menu bar

  // Cursor
  key  <left>          rollcol -1              // scroll left one column
  key  <right>         rollcol  1              // scroll right one column
  key  <home>          col 1                   // scroll to column one

  // move cursor up
  key  <up>
    if shiftkey? then
      fmark
    end
    up
  end

  // move cursor down
  key  <down>
    if shiftkey? then
      fmark
    end
    down
  end

  // file manager commands (single character command codes)
  key  <char> (c)

    // toggle file mark
    if c == ' ' then
      fmark

    // <shift-character> commands
    elseif shiftkey? then
      case  locase c
        when 'o'     fopen 'o'                   // open file/directory
        when 'e'     fopen 'e'                   // open file/directory
        when 'z'     fopen "ze"                  // open maximized
        when 'b'     fopen 'b'                   // open binary file
        when 'y'     fopen "be"                  // open binary in one window
        when 'k'     openkey2 (getffile)         // open key macro file
        when 'm'     fmove                       // move file
        when 'c'     fcopy                       // copy file
        when 'd'     fdelete                     // delete file
        when 'n'     frename                     // rename file
        when 'r'     frun 'c'                    // run program/batch file
        when 'p'     fprint                      // print file
        when 'a'     fattr                       // change file attributes
        when 't'     ftouch                      // touch file

        // spell checker
        when 's'     run "jspell " + getffile  "ck"

        // unarchive .ZIP or .LZH files
        when 'u'
          f = getffile
          run (if? (pos ".lzh" f 'i') "lha e " "pkunzip ") + f  "ck"
          reopen

        // view .ZIP or .LZH archives
        when 'v'
          f = getffile
          runcap (if? (pos ".lzh" f 'i') "lha v " "pkunzip -v ") + f
      end

    // hotkey to files
    else
      onhotkey c
    end

  // File
  key  <ctrl backspace>   fup                  // parent directory

  // Mark
  key  <alt m>         fmark "ma"              // mark all files
  key  <alt u>         fmark "ua"              // unmark all

  // Command
  key  <enter>         fopen '1'               // open file (one only)
  key  <ctrl enter>    fopen 'q'               // open file (close fmgr)
  key  <del>           fdelete                 // delete file

  // Sort
  key  <alt n>         fsort 'n'               // sort by name
  key  <alt s>         fsort 's'               // sort by size
  key  <alt d>         fsort 'd'               // sort by date/time
  key  <alt o>         fsort 'o'               // no sort (DOS order)

  // Print
  key  <ctrl p>        print                   // print fmgr contents
  end


// ───────────────────────────────────────────────────────────────────
//  Movable/Sizable windows
// ───────────────────────────────────────────────────────────────────

  object  win

  key  <ctrl o><r>     sizekey                 // move/size with kbd (qe)
  key  <ctrl f6>       pankey                  // pan video with kbd
  end


// ───────────────────────────────────────────────────────────────────
//  All windows
// ───────────────────────────────────────────────────────────────────

  object  mon

  key  <alt f10>       showentry               // show entry screen (qe)

  // key macros (qe)
  key  <ctrl m>        record                  // toggle record setting
  key  <ctrl enter>    play                    // play scrap key macro

  // define multi-key prefixes
  key  <ctrl k>        prefix <ctrl k>         // define <ctrl k> prefix
  key  <ctrl o>        prefix <ctrl o>         // define <ctrl o> prefix
  key  <ctrl q>        prefix <ctrl q>         // define <ctrl q> prefix